my @o = split( '	', `du -s /cygdrive/e/jasoncatena-acmesac/dis` );
my $s = @o[0];
print "$s\n";
